open FrCore

let _ =
	let c = ref 0 in
	let r = event_receiver () in
	let h = [map_e (fun i -> c := i) (accum_e (event r) 0)] in
	while !c < 1000000 do
		send_event r succ
	done;
	List.iter ignore h
